Plot[97.6215 Sqrt[ r^2 (BesselI[0, 0.185185 r] BesselK[0, 0.185185 r] - BesselI[1, 0.185185 r] BesselK[1, 0.185185 r])]], {r, 0, 40}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.